home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / misc / PowerCrawler.lha / PowerCrawler / Developer / EmptyPL.s < prev    next >
Text File  |  1996-09-17  |  2KB  |  95 lines
  1. ;*******************************************************************
  2. ;*                                                                 *
  3. ;*           External Pic-Loader for the PowerCrawler:             *
  4. ;*                                                                 *
  5. ;*             ?????????????????                          *
  6. ;*                                                                 *
  7. ;* Loads the following Picture formats:  ????                      *
  8. ;*                                       ????                      *
  9. ;*                                       ????                      *
  10. ;*                                                                 *
  11. ;*                                                                 *
  12. ;*******************************************************************
  13.  
  14.  
  15.     org    0
  16.  
  17.     FILE    "??????"            ; absolute Code will be
  18.                         ; saved into this file
  19.     incdir    "include3.0"
  20.     include "exec/exec.i"
  21.     include    "dos/dos.i"
  22.     include "lvo/dos_lib.i"
  23.     include "lvo/exec_lib.i"
  24.     include    "misc/PowerCrawler.i"
  25.     
  26.  
  27. RECOGNITION:
  28.     dc.b     'PCEX'
  29.  
  30. ENTRY:
  31.     bra.s    Main
  32.     nop
  33.  
  34. ACTIONCODE:
  35.     dc.w    0
  36.  
  37. RETURNCODE:
  38.     dc.w    0
  39.     
  40. RESERVED1:
  41.     dc.l    0
  42. RESERVED2:
  43.     dc.l    0
  44. RESERVED3:
  45.     dc.l    0
  46.  
  47. ACTIONVAR:
  48.     dc.l    0                ;points to FileName
  49.  
  50.  
  51. ;********************************************************************
  52.  
  53. Main:
  54.     move.l    4(sp),a5            ;Get PCInformation-Structure
  55.     move.l    pci_DosBase(a5),a6
  56.  
  57.     move    ACTIONCODE(pc),d0
  58.     cmp    #PC_PL_LOADPIC,d0
  59.     beq.s    LoadPicture
  60.     cmp    #PC_PL_GETINFO,d0
  61.     beq    GetInfo
  62.     moveq    #PC_RETURN_ERROR,d0
  63.  
  64. ExitRoutine:
  65.     lea    RETURNCODE(pc),a0
  66.     move    d0,(a0)
  67.     rts
  68.     
  69. ;********************************************************************
  70.  
  71. LoadPicture:
  72. ;    ?????
  73. ;    ?????
  74. ;    ?????
  75.         
  76.     moveq    #PC_RETURN_OK,d0
  77.     bra    ExitRoutine
  78.     
  79. ;********************************************************************
  80.  
  81. GetInfo:
  82.     lea    ACTIONVAR(pc),a0
  83.     lea    MyInfoText(pc),a1
  84.     move.l    a1,(a0)
  85.     moveq    #PC_RETURN_OK,d0
  86.     bra    ExitRoutine
  87.     
  88. ;********************************************************************
  89.  
  90. MyInfoText:
  91.     dc.b    '?????',10
  92.     dc.b    '?????',10
  93.     dc.b    '?????',10
  94.     dc.b    0
  95.